temerature_df |>
mutate(text_label = str_c("Station id: ", id, "\nprecipitation: ", prcp, "mm")) |>
plot_ly(
x = ~tmin, y = ~tmax, color = ~prcp, text = ~text_label,
type = "scatter", mode = "markers",
alpha = 0.25)
temerature_df |>
mutate(month = fct_reorder(month, tmax)) |>
plot_ly(x= ~month, y = ~tmax, color = ~month, type = "box", colors = "viridis")
temerature_df |>
filter(snow > 0) |>
count(id) |>
mutate(id = fct_reorder(id, n)) |>
plot_ly(x= ~id, y = ~n, color = ~id, type = "bar", colors = "viridis")